home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / f2c / may_5_92.lha / f2c.VMay_5_1992 / libF77 / pow_ci.c < prev    next >
C/C++ Source or Header  |  1992-05-07  |  186b  |  17 lines
  1. #include "f2c.h"
  2.  
  3. VOID pow_ci(p, a, b)     /* p = a**b  */
  4. complex *p, *a;
  5. integer *b;
  6. {
  7. doublecomplex p1, a1;
  8.  
  9. a1.r = a->r;
  10. a1.i = a->i;
  11.  
  12. pow_zi(&p1, &a1, b);
  13.  
  14. p->r = p1.r;
  15. p->i = p1.i;
  16. }
  17.